home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / os2 / srefv112.zip / SREFPRC1.ZIP / MEDIATYP.SRF < prev    next >
Text File  |  1996-04-28  |  1KB  |  42 lines
  1. /* ----------------------------------------------------------------------- */
  2. /* MEDIATYPE: Return the media type of a file, based on its extension.     */
  3. /* ----------------------------------------------------------------------- */
  4. sref_mediatype:
  5.   /* First get the extension; this assumes filenames have at least one '.' */
  6.   ???=translate(substr(arg(1), lastpos('.',arg(1))+1))
  7.  
  8.   /* Fastpath very common types [add your own favourites] */
  9.   if ???='HTM' then return 'text/html'
  10.   if ???='GIF' then return 'image/gif'
  11.  
  12.   /* Set up the table of all types that we are interested in */
  13.   known.   ='application/octet-stream'  /* default type */
  14.   known.ps ='application/postscript'
  15.   known.pdf='application/pdf'
  16.   known.zip='application/zip'
  17.   known.au ='audio/basic'
  18.   known.snd='audio/basic'
  19.   known.wav='audio/x-wav'
  20.   known.mid='audio/x-midi'
  21.   known.gif='image/gif'
  22.   known.bmp='image/bmp'
  23.   known.jpg='image/jpeg';  known.jpeg='image/jpeg'
  24.   known.tif='image/tiff';  known.tiff='image/tiff'
  25.   known.htm='text/html' ;  known.html='text/html'
  26.   known.txt='text/plain'
  27.   known.lst='text/plain'
  28.   known.me='text/plain'
  29.   known.log='text/plain'
  30.   known.cmd='text/plain'
  31.   known.doc='text/plain'
  32.   known.in='text/plain'
  33.   known.faq='text/plain'
  34.   known.mpg='video/mpeg';  known.mpeg='video/mpeg'
  35.   known.avi='video/x-msvideo'
  36.   /* Now it's trivial... */
  37.   return known.???
  38.  
  39.  
  40.  
  41.  
  42.